10 PRINT"[147]"
20 PRINT"             *********"
30 PRINT"             * INSEL *"
40 PRINT"             *********"
50 PRINT"      (C)BY ARMIN HENNECKE "
60 FORI=0TO5000:NEXT
70 PRINT"          SIE SIND DER "
80 PRINT"          KAISER EINER "
85 PRINT"          KLEINEN INSEL"
90 PRINT"    VIEL GLUECK !
95 [129]I[178]0[164]2000:[130]
100 [153]"    PS.DAS BRAUCHEN SIE AUCH !"
110 [129]I[178]0[164]5000:[130]
113 JK[178]14
114 BF[178]20
115 QQ[178]5000
120 AA[178]4000
125 BB[178]100
130 CC[178]100
135 DD[178][181](50[172][187](1))[170]1
136 [139]AA[179]0[167] AA[178]0
140 DD[178]DD[170]10
145 EE[178][181](1000[172][187](1))[170]1
148 EE[178]EE[170]500
149 [139]CC[179][178] [171]1000000[167]1280
150 [153]"LOAD"
151 [139]BB[179]0[167] BB[178]0
152 [139]AA[179]0[167] AA[178]0
160 [153]"              *EIN+VERKAUF* "
170 [153]"SIE HABEN ";AA;" T.GETREIDE"
180 [153]"          ";BB;" H.KOLONIEALLAND "
190 [153]"          ";CC;" DM"
200 [153]"1T.GETREIDE KOSTET ";DD;" DM"
210 [153]"1H.LAND     KOSTET ";EE;" DM"
220 [153]" ANDPOSPOSANDTOTOANDPOSPOSANDTOTOANDPOSPOSANDTOTOANDPOSPOSANDTOTOANDPOSPOSANDTOTOANDPOSPOSANDTOTOANDPOS"
225 [153]" USRFREFREUSRTAB(TAB(USRFREFREUSRTAB(TAB(USRFREFREUSRTAB(TAB(USRFREFREUSRTAB(TAB(USRFREFREUSRTAB(TAB(USRFREFREUSRTAB(TAB(USRFRE"
230 [153]" GETREIDE A)KAUFEN B)VERKAUFEN"
240 [153]" LAND              D)VERKAUFEN"
250 [153]"         E) WEITER"
260 [161]F$:[139]F$[178]""[167]260
270 [139]F$[178]"A"[167]330
280 [139]F$[178]"B"[167]380
300 [139]F$[178]"D"[167]480
310 [139]F$[178]"E"[167]530
320 [139]F$[179][177]"A"[175]F$[179][177]"B"[175]F$[179][177]"D"[175]F$[179][177]"E"[167]260
330 [153]"WIEVIEL GETREIDE WOLLEN SIE KAUFEN"
340 [133]GG
360 AA[178]AA[170]GG
370 CC[178]CC[171]DD[172]GG
375 [137]149
380 [153]"WIEVIEL GETREIDE WOLLEN SIE VERKAUFEN"
390 [133]HH:[139]HH[177]AA[167]HH[178]AA
410 AA[178]AA[171]HH
420 CC[178]CC[170]DD[172]HH
425 [137]149
430 [153]"WIEVIEL LAND WOLLEN SIE KAUFEN"
440 [133]II
450 EE[178]EE[172]II
460 BB[178]BB[170]II
470 CC[178]CC[171]EE
475 [137]135
480 [153]"WIEVIEL LAND WOLLEN SIE VERKAUFEN"
490 [133]JJ:[139]JJ[177]BB[167]JJ[178]BB
510 BB[178]BB[171]JJ
520 CC[178]CC[170]EE[172]JJ
525 [137]149
530 [153]"LOAD"
533 LL[178]1
534 LL[178]LL[172]QQ
535 [153]"DAS VOLK BRAUCHT ";LL;" T.GETREIDE"
540 [153]"SIE HABEN ";AA;" T.GETREIDE"
550 [153]"WIEVIEL TONNEN GEBEN SIE DEM VOLK"
560 [133]KK
565 [139]KK[178]0[167] MM[178]2000
570 [139]KK[177]AA[167]550
575 AA[178]AA[171]KK
576 [139]KK[178]0[167]627
580 [139]KK[177]LL[167]620
590 [139]KK[179]LL[167]627
600 [139]KK[178]LL[167]633
610 AA[178]AA[171]KK
615 [139]KK[177]LL[167] NN[178]2000
620 NN[178][181](500[172][187](1))[170]1
621 NN[178]NN[170]100
622 MM[178][181](50[172][187](1))[170]1
623 MM[178]MM[170]10
624 OO[178][181](300[172][187](1))[170]1
625 OO[178]OO[170]50
626 [137]650
627 NN[178][181](100[172][187](1))[170]1
628 NN[178]NN[170]20
629 MM[178][181](500[172][187](1))[170]1
630 MM[178]MM[170]120
631 OO[178]0
632 [137]650
633 NN[178][181](200[172][187](1))[170]1
634 NN[178]NN[170]50
635 MM[178][181](150[172][187](1))[170]1
636 MM[178]MM[170]25
637 OO[178][181](50[172][187](1))[170]1
638 [137]650
650 [153]"LOAD"
660 [153]"ES SIND ";NN;"GEBOREN"
670 [153]"ES SIND ";MM;"GESTORBEN"
680 [153]"ES SIND ";OO;"AUF DIE INSEL  GEKOMMEN"
690 [153]"         [X] WEITER"
694 NN[178]NN[170]CD
695 NN[178]NN[170]OO
696 NN[178]NN[171]MM
697 QQ[178]QQ[170]NN
705 [161]P$:[139]P$[178]""[167]705
710 [139]P$[178]"X"[167]760
720 [139]P$[179][177]"X"[167]705
760 [153]"LOAD"
770 [153]"MARKT    A)1000 DM (KAUFEN)"
780 [153]"MUEHLE   B)2000 DM (KAUFEN)"
790 [153]"TRUPPEN  C) 500 DM (KAUFEN)"
800 [153]"SIE HABEN ";CC;" DM"
810 [153]"         [X] WEITER
820 GETR$:IFR$=""THEN820
830 IFR$="A"THEN880
840 IFR$="B"THEN930
850 IFR$="C"THEN980
860 IFR$="X"THEN1030
870 IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"X"THEN820
880 PRINT"WIEVIEL MAERKTE WOLLEN SIE KAUFEN"
890 INPUTSS
895 AB=1000
900 AB=AB*SS
910 CC=CC-AB
915 BD=BD+SS
920 GOTO760
930 PRINT"WIEVIEL MUEHLEN WOLLEN SIE KAUFEN"
940 INPUTTT
945 AC=2000
950 AC=AC*TT
960 CC=CC-AC
965 BE=BE+TT
970 GOTO760
980 PRINT"WIEVIEL TRUPPEN WOLLEN SIE KAUFEN"
990 INPUTUU
995 AD=500
1000 AD=AD*UU
1010 CC=CC-AD
1015 BF=BF+UU
1020 GOTO760
1030 PRINT"[147]"
1040 PRINT"MOECHTEN SIE KOLONIEN EROBERN ?"
1050 PRINT"WENN JA DANN DRUECKE [A]"
1060 PRINT"     [184][184]              [184][184][184]"
1070 PRINT"[X] KEINEN KRIEG"
1080 GETV$:IFV$=""THEN1080
1090 IFV$="A"THEN1470
1110 IFV$="X"THEN1130
1120 IFV$<>"A"ANDV$<>"C"THEN1080
1130 PRINT"[147]"
1131 IFAA<0THEN AA=0
1132 IFYF<0THEN YF=0
1133 IFBB<0THEN BB=0
1140 PRINT"            *UEBERSICHT*"
1150 PRINT" SIE BESITZEN :    "
1160 PRINT" ";AA;" T.GETREIDE "
1170 PRINT" ";BB;" H.KOLONIEALLAND"
1180 PRINT" ";CC;" DM         "
1190 PRINT" ";QQ;" EINWOHNER  "
1200 PRINT" ";BD;" MAERKTE    "
1210 PRINT" ";BE;" MUEHLEN    "
1220 PRINT" ";BF;" TRUPPEN    "
1230 PRINT"   [X] WEITER      "
1240 GETW$:IFW$=""THEN1240
1250 IFW$="X"THEN1270
1260 IFW$<>"X"THEN1240
1270 GOTO1310
1280 PRINT"[147]"
1290 PRINT"     GAME OVER"
1300 FORI=0TO500000000:NEXT
1310 XX=INT(1000*RND(1))+1
1320 XX=XX*SS
1330 YY=INT(2500*RND(1))+1
1340 YY=YY*BE
1344 ML=INT(3*RND(1))+1
1345 ML=ML*BB
1346 RT=INT(2*RND(1))+1
1347 RT=RT*BB
1348 JK=INT(BB*RND(1)/3.5)
1350 PRINT"[147]"
1360 PRINT"SIE BEKOMMEN ";XX;" DM VON"
1370 PRINT"IHREN MAERKTEN"
1380 PRINT"SIE BEKOMMEN ";YY;" DM VON"
1390 PRINT"IHREN MUEHLEN"
1404 PRINT"UND SIE BEKOMMEN ";ML;" T.GETREIDE "
1405 PRINT"UND ";JK;" T.HOLZ "
1408 PRINT"VON IHREN KOLONIEEN  "
1409 PRINT"    [X] WEITER"
1410 XX=XX+YY
1411 YF=YF+JK
1420 CC=CC+XX
1425 AA=AA+ML
1430 GETZ$:IFZ$=""THEN1430
1440 IFZ$="X"THEN1460
1450 IFZ$<>"X"THEN1430
1460 GOTO2030
1470 PRINT"[147]"
1480 PRINT"SIE HABEN: ";BF;" TRUPPEN"
1490 AY=INT(UU*RND(1))+1
1500 AY=AY+INT(10*RND(1))
1510 PRINT"IHR FEIND HAT: ";AY;" TRUPPEN"
1520 PRINT"DER KRIEG KANN BEGINNEN !"
1530 FORI=0TO5000:NEXT
1540 PRINT"[147]"
1550 PRINT""
1560 PRINT" [216][216][216][216][216][216][216][216][216][216]                [216][216][216][216][216][216][216][216][216][216]"
1570 PRINT" [216][216][216][216][216][216][216][216][216][216] [216]            [216] [216][216][216][216][216][216][216][216][216][216]"
1580 PRINT" [216][216][216][216][216][216][216][216][216][216][160]               [216][216][216][216][216][216][216][216][216][216]"
1590 FORI=0TO1000:NEXT
1595 PRINT"[147]"
1600 PRINT""
1610 PRINT" [216][216][216][216][216][216][216][216][216][216]          [216][216][216][216][216][216][216][216][216][216]"
1620 PRINT" [216][216][216][216][216][216][216][216][216][216] [216]      [216] [216][216][216][216][216][216][216][216][216][216]"
1630 PRINT" [216][216][216][216][216][216][216][216][216][216]          [216][216][216][216][216][216][216][216][216][216]"
1640 FORI=0TO1000:NEXT
1645 PRINT"[147]"
1650 PRINT""
1660 PRINT" P      [216][216][216]*[216]@[216]^[216][216] [216][216][216]"
1670 PRINT"  E      [216][166]+^[216][216]![219][216]*[216]@:"
1680 PRINT"   N       [216] '[216]^[216]_[216]*"
1690 PRINT"    G      "
1700 PRINT"        KNALLLLLL!"
1710 FORI=0TO2000:NEXT
1720 AZ=INT(BF*RND(1))+1
1730 BC=INT(AY*RND(1))+1
1731 BF=BF-AZ
1732 AY=AY-BC
1740 IFAY<BFTHEN1770
1750 IFAY>BFTHEN1830
1760 IFAY=BFTHEN1890
1770 PRINT"[147]"
1780 PRINT" SIE HABEN : "
1790 FORI=0TO2000:NEXT
1800 PRINT" [144] *** GEWONNEN *** [146]"
1805 PRINT" UND EINE KOLONIE EROBERT "
1810 PRINT" ABER NUR NOCH ";BF;" TRUPPEN"
1815 FORI=0TO8000:NEXT
1820 GOTO1920
1830 PRINT"[147]"
1840 PRINT" SIE HABEN :"
1850 FORI=0TO2000:NEXT
1860 PRINT" [144] *** VERLOHREN *** [146]"
1870 PRINT" UND NUR NOCH ";BF;" TRUPPEN"
1875 FORI=0TO8000:NEXT
1880 GOTO1980
1890 PRINT"[147]"
1900 PRINT"    UNENTSCHIEDEN !"
1905 FORI=0TO5000:NEXT
1910 GOTO1130
1920 BF=BF+5
1930 AA=AA+200
1940 BB=BB+500
1950 CC=CC+5000
1960 QQ=QQ+300
1970 GOTO1130
1980 AA=AA-200
1990 BB=BB-500
2000 CC=CC-5000
2010 QQ=QQ-350
2020 GOTO1130
2030 PRINT"[147]"
2031 RT=20
2032 RT=RT*QQ
2033 RY=INT(2000*RND(1))+1
2034 RY=RY+1000
2035 IFYF<0THEN YF=0
2036 IFAA<0THEN AA=0
2040 PRINT" SIE BEKOMMEN 20 DM STEUERN"
2050 PRINT" PRO. EINWOHNER"
2060 PRINT" DAS SIND ";RT;" DM STEUERN"
2070 PRINT" UND AN IHRE BEAMTENSCHAFT "
2080 PRINT" ZAHLEN SIE ";RY;" DM LOHN "
2090 PRINT" WEITER [X]"
2091 CC=CC+RT
2092 CC=CC-RY
2100 GETP$:IFP$=""THEN2100
2110 IFP$="X"THEN2130
2120 IFP$<>"X"THEN2100
2130 PRINT"[147]"
2140 PRINT"            NACHRICHTEN "
2150 PO=INT(15*RND(1))+1
2160 IFPO=1THEN2260
2170 IFPO=2THEN2260
2180 IFPO=3THEN2260
2190 IFPO=4THEN2260
2200 IFPO=5THEN2260
2210 IFPO=6THEN2300
2220 IFPO=7THEN2370
2230 IFPO=8THEN2430
2240 IFPO=9THEN2260
2250 IFPO=10THEN2730
2251 IFPO=11THEN2840
2252 IFPO=12THEN2990
2253 IFPO=13THEN3040
2254 IFPO=14THEN2260
2255 IFPO=15THEN2260
2260 PRINT"    HEUTE KEINE  NACHRICHTEN "
2270 PRINT"   [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2280 FORI=0TO5000:NEXT
2290 GOTO2490
2300 PRINT"SIE FINDEN IM MEER EINE "
2310 PRINT"KISTE MIT ZWEI RATTEN DIE "
2320 PRINT"SICH VERMEHREN UND DEIN"
2330 PRINT"GETREIDE VERZEHREN ."
2340 AA=0
2350 FORI=0TO10000:NEXT
2360 GOTO2490
2370 PRINT"EIN SCHIFF STRANDET AN IHRER KUESTE "
2380 PRINT"DAS SCHIFF HAT 20 T.GETREIDE,"
2390 PRINT"             9000 DM         "
2400 PRINT"        UND     7 T.HOLZ GELADEN"
2401 CC=CC+9000
2402 AA=AA+20
2403 YF=YF+7
2410 FORI=0TO10000:NEXT
2420 GOTO2490
2430 PRINT"SIE FANDEN EINEN SCHATZ "
2440 PRINT"AUF IHRER INSEL MIT "
2450 PRINT"2000 DM INHALT !"
2460 CC=CC+2000
2470 FORI=0TO10000:NEXT
2480 GOTO2490
2490 PRINT"[147]"
2500 PRINT" WOLLEN SIE AUS IHREM "
2510 PRINT" HOLZ  "
2530 PRINT" A= HAEUSER BAUEN  [B.1T.]"
2540 PRINT" SIE HABEN ";YF;" T.HOLZ"
2545 PRINT" [X] WEITER
2550 [161]I$:[139]I$[178]""[167]2550
2560 [139]I$[178]"A"[167]2600
2580 [139]I$[178]"X"[167]135
2590 [139]I$[179][177]"A"[175]I$[179][177]"B"[175]I$[179][177]"X"[167]2550
2600 [153]"LOAD"
2610 [153]" SIE HABEN ";YF;" T.HOLZ "
2615 [153]" SIE BRAUCHEN FUER EIN HAUS "
2616 [153]" 1.T.HOLZ "
2620 [153]" WIEVIELE WOLLEN SIE MACHEN ?"
2630 [133]" : ";YH
2640 [139]YH[177]YF[167]2600
2650 YF[178]YF[171]YH
2660 [153]"LOAD"
2670 [153]"DURCH DIE HAEUSER HAT "
2680 [153]"SICH DAS VOLK VERMEHRT !"
2690 HI[178]2[172]YH
2700 QQ[178]QQ[170]HI
2710 [129]I[178]0[164]8000:[130]
2720 [137]135
2730 [153]" FEUERWAIT  "
2740 [153]" EIN FEUER BRANNTE BAEUME UND HAEUSER "
2750 [153]" NIEDER, MENSCHEN STARBEN "
2760 [153]" DIE HAELFTE DER INSEL IST VERBRANNT "
2770 [129]I[178]0[164]10000:[130]
2780 QQ[178][181](QQ[173]2[170].5)
2800 BE[178][181](BE[173]2)
2810 YF[178][181](YF[173]2)
2830 [137]2490
2840 [153]" STOPKRIEGWAIT
2850 PRINT" EIN 3 J.KRIEG IST AUSGEBROCHEN[146]"
2860 PRINT" 1 "
2870 FORI=0TO2000:NEXT
2880 PRINT" 2 "
2890 FORI=0TO2000:NEXT
2900 PRINT" 3 "
2910 FORI=0TO9000:NEXT
2920 BE=0
2930 QQ=2534
2940 BF=0
2945 BD=0
2950 AA=0
2955 IFYF<21THEN2981
2960 YF=21
2980 GOTO2490
2981 YF=0
2982 GOTO2490
2990 PRINT" EIN INDIANER SCHENKT IHNEN"
3000 PRINT" 1000[146] H.KOLONIEALLAND"
3010 FORI=0TO10000:NEXT
3020 BB=BB+1000
3030 GOTO2490
3040 PRINT" EINE EXPEDITION "
3050 PRINT" FINDET NEUES KOLONIEALLAND "
3060 EP=INT(500*RND(1))+1
3070 EP=EP+500
3080 PRINT" ";EP;"[146] H."
3090 BB=BB+EP
3100 FORI=0TO10000:NEXT
3110 GOTO2490